* chronological development of support for the government based on monthly vote intentions from 2005 to 2015 in each country included in our sample

clear
set more off 

cd "" // set your local working directory which contains the folders with a sub-folder for the data

use "./data/austeritypaper_bjps.dta", clear

** Germany
twoway line voteintention_cabinet voteintention_cabinet_filtered trend if country == "DE", /// 
	tline(2005m9 2009m9 2013m9) ///
	tline(2010m6 2012m10, lcolor(gs5) lpattern(dash)) ///
	legend(position(6) size(small) label(1 "Vote Intention (%)") label(2 "Filtered Vote Intention (%)")) xlabel(#10, angle(45)) xtitle(Date) ///
	saving(germany, replace)
graph export germany.png, replace

** Ireland
twoway line voteintention_pmparty voteintention_filtered trend if country == "IE", /// 
	tline(2007m5 2011m2) ///
	tline(2008m10 2009m4 2009m12 2010m12 2011m12 2012m12 2014m10, lcolor(gs5) lpattern(dash)) ///
	legend(position(6) size(small) label(1 "Vote Intention (%)") label(2 "Filtered Vote Intention (%)")) xlabel(#10, angle(45)) xtitle(Date) ///
	saving(ireland, replace)
graph export ireland.png, replace
		
** UK
twoway line voteintention_pmparty voteintention_filtered trend if country == "GB", /// 
	tline(2005m5 2010m5 2015m5) ///
	tline(2010m10 2010m11 2011m12 2012m3 2014m12, lcolor(gs5) lpattern(dash)) ///
	legend(position(6) size(small) label(1 "Vote Intention (%)") label(2 "Filtered Vote Intention (%)")) xlabel(#10, angle(45)) xtitle(Date) ///
	saving(uk, replace)
graph export uk.png, replace

** Greece
twoway line voteintention_pmparty voteintention_filtered trend if country == "GR", /// 
	tline(2007m9 2009m10 2012m5 2015m1 2015m9) ///
	tline(2010m5 2011m6 2012m2 2015m7, lcolor(gs5) lpattern(dash)) ///
	legend(position(6) size(small) label(1 "Vote Intention (%)") label(2 "Filtered Vote Intention (%)")) xlabel(#10, angle(45)) xtitle(Date) ///
	saving(greece, replace)
graph export greece.png, replace

** Italy
twoway line voteintention_pmparty voteintention_filtered trend if country == "IT", /// 
	tline(2008m4 2013m2) ///
	tline(2010m5 2011m6 2011m12 2012m3 2014m10, lcolor(gs5) lpattern(dash)) ///
	legend(position(6) size(small) label(1 "Vote Intention (%)") label(2 "Filtered Vote Intention (%)")) xlabel(#10, angle(45)) xtitle(Date) ///
	saving(italy, replace)
graph export italy.png, replace

** Portugal
twoway line voteintention_pmparty voteintention_filtered trend if country == "PT", /// 
	tline(2009m9 2011m6 2015m10) ///
	tline(2010m3 2010m5 2010m10 2011m5 2011m10 2012m10, lcolor(gs5) lpattern(dash)) ///
	legend(position(6) size(small) label(1 "Vote Intention (%)") label(2 "Filtered Vote Intention (%)")) xlabel(#10, angle(45)) xtitle(Date) ///
	saving(portugal, replace)
graph export portugal.png, replace

** Spain
twoway line voteintention_pmparty voteintention_filtered trend if country == "ES", /// 
	tline(2008m3 2011m11 2015m12) ///
	tline(2010m6 2010m10 2011m2 2012m2 2012m6 2012m10, lcolor(gs5) lpattern(dash)) ///
	legend(position(6) size(small) label(1 "Vote Intention (%)") label(2 "Filtered Vote Intention (%)")) xlabel(#10, angle(45)) xtitle(Date) ///
	saving(spain, replace)
graph export spain.png, replace

** Hungary
twoway line voteintention_pmparty voteintention_filtered trend if country == "HU", /// 
	tline(2010m4 2014m4) ///
	tline(2008m11 2009m4 2010m11 2011m3 2012m5 2014m11, lcolor(gs5) lpattern(dash)) ///
	legend(position(6) size(small) label(1 "Vote Intention (%)") label(2 "Filtered Vote Intention (%)")) xlabel(#10, angle(45)) xtitle(Date) ///
	saving(hungary, replace)
graph export hungary.png, replace

** Latvia
twoway line voteintention_pmparty voteintention_filtered trend if country == "LV", /// 
	tline(2006m10 2010m10 2011m9 2014m10) ///
	tline(2008m10 2009m1 2009m6 2009m12 2011m1, lcolor(gs5) lpattern(dash)) ///
	legend(position(6) size(small) label(1 "Vote Intention (%)") label(2 "Filtered Vote Intention (%)")) xlabel(#10, angle(45)) xtitle(Date) ///
	saving(latvia, replace)
graph export latvia.png, replace

** Poland
twoway line voteintention_pmparty voteintention_filtered trend if country == "PL", /// 
	tline(2007m10 2010m10 2015m10) ///
	tline(2008m10 2009m4 2011m3 2011m11 2013m9, lcolor(gs5) lpattern(dash)) ///
	legend(position(6) size(small) label(1 "Vote Intention (%)") label(2 "Filtered Vote Intention (%)")) xlabel(#10, angle(45)) xtitle(Date) ///
	saving(poland, replace)
graph export poland.png, replace

** Romania
twoway line voteintention_pmparty voteintention_filtered trend if country == "ROM", /// 
	tline(2008m11 2012m12) ///
	tline(2009m3 2010m5 2011m12, lcolor(gs5) lpattern(dash)) ///
	legend(position(6) size(small) label(1 "Vote Intention (%)") label(2 "Filtered Vote Intention (%)")) xlabel(#10, angle(45)) xtitle(Date) ///
	saving(romania, replace)
graph export romania.png, replace

** Denmark
twoway line voteintention_pmparty voteintention_filtered trend if country == "DEN", /// 
	tline(2007m11 2011m9 2015m6) ///
	tline(2010m5, lcolor(gs5) lpattern(dash)) ///
	legend(position(6) size(small) label(1 "Vote Intention (%)") label(2 "Filtered Vote Intention (%)")) xlabel(#10, angle(45)) xtitle(Date) ///
	saving(denmark, replace)
graph export denmark.png, replace

** Finland
twoway line voteintention_pmparty voteintention_filtered trend if country == "FIN", /// 
	tline(2007m11 2011m9 2015m6) ///
	tline(2012m2 2013m3 2015m9 , lcolor(gs5) lpattern(dash)) ///
	legend(position(6) size(small) label(1 "Vote Intention (%)") label(2 "Filtered Vote Intention (%)")) xlabel(#10, angle(45)) xtitle(Date) ///
	saving(finland, replace)
graph export finland.png, replace

** Netherlands
twoway line voteintention_pmparty voteintention_filtered trend if country == "NET", /// 
	tline(2006m12 2010m6 2012m9) ///
	tline(2012m4 2012m10 2013m9, lcolor(gs5) lpattern(dash)) ///
	legend(position(6) size(small) label(1 "Vote Intention (%)") label(2 "Filtered Vote Intention (%)")) xlabel(#10, angle(45)) xtitle(Date) ///
	saving(netherlands, replace)
graph export netherlands.png, replace

** Austria
twoway line voteintention_pmparty voteintention_filtered trend if country == "AUT", /// 
	tline(2008m10 2013m10) ///
	tline(2010m10 2012m3, lcolor(gs5) lpattern(dash)) ///
	legend(position(6) size(small) label(1 "Vote Intention (%)") label(2 "Filtered Vote Intention (%)")) xlabel(#10, angle(45)) xtitle(Date) ///
	saving(austria, replace)
graph export austria.png, replace


